﻿Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Public Class ConnectionFactory

    Private Shared connection As SqlConnection

    Public Shared Function GetConnection() As SqlConnection
        If connection Is Nothing Then
            Try
                connection = New SqlConnection("Data Source=DESENV07\INTERFACENET_LOC;Initial Catalog=SUPORTE;User Id=sa;Password=#abc123")
            Catch ex As Exception

            End Try

        End If
        Return connection
    End Function

End Class
